home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / swagd_f.zip / EGAVGA.SWG / 0111_Set Border (BASM).pas < prev    next >
Pascal/Delphi Source File  |  1994-08-24  |  391b  |  23 lines

  1. { EM> Does anyone happen to know how to change the border color?}
  2.  
  3. const border:boolean=true;
  4. procedure setborder(col:byte); assembler;
  5. asm
  6.   xor ch,ch
  7.   mov cl,border
  8.   jcxz @out
  9.   mov dx,3dah
  10.   in al,dx
  11.   mov dx,3c0h
  12.   mov al,11h+32
  13.   out dx,al
  14.   mov al,col
  15.   out dx,al
  16.  @out:
  17. end;
  18.  
  19. BEGIN
  20. SetBorder(1);  { make it blue }
  21. Readln;
  22. SetBorder(0);  { back to black }
  23. END.